home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / boot / czesc_1 / doswedge22 / install < prev    next >
Encoding:
Text File  |  1995-02-06  |  3.8 KB  |  177 lines
  1. ; $VER: Install 2.1 (07.02.95)
  2. ; Script to install Release 2.1 DosWedge
  3. (complete 0)
  4.  
  5. (set @default-dest "SYS:WBStartup")
  6. (set @startupdir "SYS:Startup")
  7.  
  8. (set target @default-dest)
  9.  
  10. ;********************************************************************
  11.  
  12. (set #Yes-text
  13. (cat "Yes"
  14. ))
  15.  
  16. (set #No-text
  17. (cat "No"
  18. ))
  19.  
  20.  
  21. (set #Overwrite
  22. (cat "Replace"
  23. ))
  24.  
  25. (set #Abort
  26. (cat "Abort"
  27. ))
  28.  
  29. ;********************************************************************
  30.  
  31. (set #warn-kickstart-text
  32. (cat    "\nBAD VERSION OF KICKSTART\n\n"
  33.     "DosWedge requires KickStart 2.0 (V37) or higher. It will not work on earlier versions.\n"
  34.     "You currently are running KickStart V%ld.\n\n"
  35.     "Continue with installation?"
  36. ))
  37.  
  38. ;********************************************************************
  39.  
  40. (set #docs-install-text
  41. (cat "Installing documentation"
  42. ))
  43.  
  44. (set #docs-query-text
  45. (cat "\nWould you like to install documentation for DosWedge?"
  46. ))
  47.  
  48. (set #docs-help-text
  49. (cat ""
  50. ))
  51.  
  52. (set #docs-query-dir-text
  53. (cat "Where to install documentation?"
  54. ))
  55.  
  56. (set #docs-query-dir-help
  57. (cat @askdir-help
  58. ))
  59.  
  60. ;********************************************************************
  61.  
  62. (set #StartupMagaer-query
  63. (cat "\nStartupManager Installation?\n\n"
  64.      "I have found StartupManager in your SYS:WBStartup drawer."
  65.      " You have a drawer named SYS:Startup which is where StartupManager"
  66.      " runs programs from when you boot. Would you like DosWedge installed"
  67.      " here?"
  68. ))
  69.  
  70. ;********************************************************************
  71. (set #path-text
  72. (cat "Select directory to install DosWedge into"
  73. ))
  74.  
  75. (set #path-help
  76. (cat @askdir-help
  77. ))
  78.  
  79. ;********************************************************************
  80.  
  81. (set #Overwrite-text
  82. (cat "\nThere is a version of DosWedge installed already. "
  83.      "Would you like to replace it with this version?"
  84. ))
  85.  
  86. (set #Overwrite-abort-text
  87. (cat "Installation has been aborted, old version remains untouched."
  88. ))
  89.  
  90. ;********************************************************************
  91.  
  92. (set #MatrixLib-text
  93. (cat "\nInstalling matrix.library\n\nCopyright ©1992-95 David Swasbrook"
  94. ))
  95.  
  96. (set #MatrixLib-help
  97. (cat "This will copy matrix.library into your LIBS: directory.\nCopyright ©1992-95 David Swasbrook\n\n"
  98.      @copylib-help
  99. ))
  100.  
  101.  
  102. ;********************************************************************
  103.  
  104.  
  105. ;********************************************************************
  106. ;**** END OF TEXT
  107. ;********************************************************************
  108.  
  109.  
  110. ;********************************
  111. ;**** CHECK THE KICKSTART VERSION
  112. ;****
  113. (set ver (/ (getversion) 65536) )
  114. (if (< ver 37) (
  115.     (set warning (#warn-kickstart-text ver) ) (message warning)
  116. ))
  117.  
  118. (complete 10)
  119.  
  120. (set setaskdir 1)
  121.  
  122. (if (exists "SYS:WBStartup/StartupManager")
  123. (
  124.     (if (exists @startupdir)
  125.     (
  126.         (set target @startupdir)
  127.         (if(askbool (prompt #StartupMagaer-query) (help #Overwrite-text) (choices #Yes-text #No-text)  )
  128.         (
  129.             (set setaskdir 0)
  130.         ))
  131.     ))
  132.     
  133. ))
  134.  
  135. (if setaskdir
  136. (set target
  137. (askdir (prompt #path-text) (help #path-help) (default target)
  138. ))
  139. )
  140.  
  141.  
  142. (if (exists (tackon target "DosWedge"))
  143. (
  144.     (if(askbool (prompt #Overwrite-text) (help #Overwrite-text) (choices #Overwrite #Abort)  )
  145.     (
  146.         (copyfiles (source "DosWedge") (dest target) )
  147.     )
  148.     (
  149.         (abort #Overwrite-abort-text )
  150.     ))
  151. )
  152. (
  153.     (copyfiles (source "DosWedge") (dest target) (infos) )
  154.     (complete 60)
  155.     (tooltype    (dest (tackon target "DosWedge"))
  156.         (settooltype "DONOTWAIT" )
  157.         (noposition)
  158.     )
  159. ))
  160.  
  161. (complete 60)
  162.  
  163. (copylib (prompt #MatrixLib-text) (help #MatrixLib-help) (source "matrix.library") (dest "LIBS:") (confirm) )
  164.  
  165. (complete 80) (working #docs-install-text)
  166.  
  167. (if(= (askbool (prompt #docs-query-text) (help #docs-query-help)) 1)
  168.     (
  169.         (set docs-target (askdir (prompt #docs-query-dir-text) (help #docs-query-dir-help) (default "SYS:")))
  170.         (copyfiles (source "DosWedge.guide") (dest docs-target ) (infos) )
  171.     )
  172. )
  173.  
  174. (set @default-dest target)
  175. (complete 100)
  176.  
  177.